Quieten --without-x compilation.

* lisp/term/common-win.el: Provide a feature.
* lisp/term/x-win.el (term/common-win): Require it.

diff --git a/lisp/term/common-win.el b/lisp/term/common-win.el
index 64459353e1ca25f67116dc665bae87ee43467dec..98ad5acf26859c5b3ef2041a7d2258513725490e 100644 (file)
--- a/lisp/term/common-win.el
+++ b/lisp/term/common-win.el
@@ -419,4 +419,6 @@ the operating system.")
             (setq defined-colors (cons this-color defined-colors))))
       defined-colors)))
 
+(provide 'term/common-win)
+
 ;;; common-win.el ends here

diff --git a/lisp/term/x-win.el b/lisp/term/x-win.el
index b0902942f8f702e538827c6703c9842f0806ac3e..11fe93f88ba1f776de89235561f6c1b93c182573 100644 (file)
--- a/lisp/term/x-win.el
+++ b/lisp/term/x-win.el
@@ -72,6 +72,7 @@
 (if (not (fboundp 'x-create-frame))
     (error "%s: Loading x-win.el but not compiled for X" (invocation-name)))
 
+(require 'term/common-win)
 (require 'frame)
 (require 'mouse)
 (require 'scroll-bar)